home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 3 / 02 / tips & tricks / dosintern.s < prev   
Encoding:
Text File  |  1995-06-01  |  892 b   |  26 lines
  1. Output:         equ     $42
  2. Write:          equ     $fa
  3.  
  4.   move.b #Output,d0   ; Vektor-Nummer für die Funktion Output()
  5.   ext.w  d0           ; vorzeichenbehaftete Nummer auf
  6.   ext.l  d0           ; Longword erweitern
  7.   lsl    #2,d0        ; umwandeln in Offset
  8.   move.l (a2,d0),a4   ; Sprungadresse besorgen
  9.   moveq  #$c,d0       ; Standardwert
  10.   jsr (a5)            ; Funktion Output() aufrufen
  11.   move.l d0,d1        ; Parameter für Write(): Filehandle nach d1,
  12.   move.l #Text,d2         ; Adresse des Textes nach d2 und
  13.   move.l #TextLength,d3   ; Länge nach d3
  14.   move.b #Write,d0        ; Vektor-Nummer für Write()
  15.   ext.w  d0
  16.   ext.l  d0
  17.   lsl    #2,d0
  18.   move.l (a2,d0),a4
  19.   moveq  #$c,d0
  20.   jsr (a5)            ; Funktion Write() aufrufen
  21.   rts
  22.  
  23. Text:  dc.b    "Die Ausgabe dieses Textes erfolgte ohne "
  24.        dc.b    "das Öffnen der Dos-Library.",10,13
  25. TextLength:     equ     *-Text
  26.